home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / blu.e < prev    next >
Text File  |  1999-11-29  |  948b  |  37 lines
  1. PROC main()
  2.    ->DEF a[1000]:LIST, b[10000]:STRING
  3.    DEF a, b
  4.    ->a := [1, 2, 3, 4, 5]
  5.    ->b := 'hejsanhejsan'
  6.    WriteF('LIST\n')
  7.    WriteF('CHAR-1 : \d\n', Char(a-1))
  8.    WriteF('CHAR-2 : \d\n', Char(a-2))
  9.    WriteF('CHAR-3 : \d\n', Char(a-3))
  10.    WriteF('CHAR-4 : \d\n', Char(a-4))
  11.    WriteF('INT-2 : \d\n', Int(a-2))
  12.    WriteF('INT-4 : \d\n', Int(a-4))
  13.    WriteF('LONG-4 : \d\n', Long(a-4))
  14.    WriteF('INT-6 : \d\n', Int(a-6))
  15.    WriteF('STRING\n')
  16.    WriteF('CHAR-1 : \d\n', Char(b-1))
  17.    WriteF('CHAR-2 : \d\n', Char(b-2))
  18.    WriteF('CHAR-3 : \d\n', Char(a-3))
  19.    WriteF('CHAR-4 : \d\n', Char(a-4))
  20.    WriteF('INT-2 : \d\n', Int(b-2))
  21.    WriteF('INT-4 : \d\n', Int(b-4))
  22.    WriteF('LONG-4 : \d\n', Long(b-4))
  23.    WriteF('INT-6 : \d\n', Int(b-6))
  24.    WriteF('\d\n', EstrLen('hejhej'))
  25. ENDPROC
  26.  
  27. /*
  28. DEF static list : INT - 4
  29. DEF static string : INT - 4
  30. List() : INT - 4
  31. String() : INT - 4
  32. [1, 2, 3, 4] : INT - 2
  33. 'blabla' är inte en estring!
  34. */
  35.  
  36.  
  37.